Don't bind stop.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 04353e9c7ec2a1f9f5099f14bb112f0c5c44cd35..ab5bb30699e2fa4bde668c3332f5870a8e56d4e0 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -780,7 +780,9 @@ language you are using."
 (define-key global-map [redo]          'repeat-complex-command)
 (define-key global-map [again]         'repeat-complex-command) ; Sun keyboard
 (define-key global-map [open]          'find-file) ; Sun
-(define-key global-map [stop]          'keyboard-quit) ; Sun
+;; The following wouldn't work to interrupt running code since C-g is
+;; treated specially in the event loop.
+;; (define-key global-map [stop]               'keyboard-quit) ; Sun
 ;; (define-key global-map [clearline]  'function-key-error)
 (define-key global-map [insertline]    'open-line)
 (define-key global-map [deleteline]    'kill-line)